home *** CD-ROM | disk | FTP | other *** search
/ Virtual Sex (VCA Interactive) / Virtual Sex (VCA Interactive).iso / mac / Virtual Sex Power Mac / VS_JR / 00046.ls < prev    next >
Encoding:
Text File  |  1995-06-22  |  1.4 KB  |  73 lines
  1. global gMoodJ, gStateJ, gAnswersJ, gWin, gJR, gTM, gMS
  2.  
  3. on startMovie
  4.   set gAnswersJ to 1
  5. end
  6.  
  7. on PickMood
  8.   set gMoodJ to random(3)
  9.   if gMoodJ = 1 then
  10.     play frame "MoodBad"
  11.   else
  12.     nothing()
  13.   end if
  14.   if gMoodJ = 2 then
  15.     play frame "MoodTired"
  16.   else
  17.     nothing()
  18.   end if
  19.   if gMoodJ = 3 then
  20.     play frame "MoodHorny"
  21.   else
  22.     nothing()
  23.   end if
  24. end
  25.  
  26. on stateOfBeing
  27.   set gStateJ to 3
  28.   set the castNum of sprite 14 to gStateJ
  29.   updateStage()
  30. end
  31.  
  32. on Aanswer i, y
  33.   set myList to list("HT4.AIF", "LT.AIF", "NC1.AIF", "R1.AIF", "SS1.AIF", "ST1.AIF", "WC1.AIF", "T1.AIF", "UH1.AIF")
  34.   set z to random(9)
  35.   set mySound to getAt(myList, z)
  36.   if gAnswersJ = i then
  37.     set gStateJ to gStateJ + 1
  38.     if gStateJ > 6 then
  39.       set gStateJ to 6
  40.     end if
  41.     set the castNum of sprite 14 to gStateJ
  42.     updateStage()
  43.     set gAnswersJ to gAnswersJ + 1
  44.     if y = 9 then
  45.       play frame the frame + 4
  46.     else
  47.       play frame the frame + 1
  48.     end if
  49.   end if
  50.   if gAnswersJ <> i then
  51.     set gStateJ to gStateJ - 1
  52.     if gStateJ = 0 then
  53.       play frame "fin"
  54.     else
  55.       puppetSound(mySound)
  56.       set the castNum of sprite 14 to gStateJ
  57.       play frame the frame
  58.     end if
  59.   end if
  60. end
  61.  
  62. on winner
  63.   set gWin to gWin + 1
  64.   play movie "Virtual Sex:MAIN"
  65. end
  66.  
  67. on clearTheBitches
  68.   set gJR to 0
  69.   set gTM to 0
  70.   set gMS to 0
  71.   play movie "Virtual Sex:MAIN"
  72. end
  73.